home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 19
/
Mac Magazin and MacEasy Magazine CD - Issue 19.iso
/
Musik & Kunst
/
JUNO Librarian 1.1.5
/
Sample Scripts
/
37 Change CHORUS
< prev
next >
Wrap
Text File
|
1994-01-28
|
364b
|
15 lines
tell application "JUNO Librarian"
activate -- if needed
set x to Parameter 16 of Window "Sample"
set y to (round (x ÷ 32) rounding down)
set y to y * 32
set z to x - y -- TRI, PWM, DCO range
-- select 1 of 3
set x to z + 96 -- CHORUS OFF
-- set x to z + 64 -- CHORUS 1
-- set x to z + 0 -- CHORUS 2
copy x to Parameter 16 of Window "Sample"
end tell